COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	  1) DV.CH[MF,ALS] and 2) DVIESP.CH[TEX,SYS]	7-10-85 08:24	pages 5,5
C00005 00003	**** File 1) DV.CH[MF,ALS]/5P/107L
C00011 ENDMK
C⊗;
  1) DV.CH[MF,ALS] and 2) DVIESP.CH[TEX,SYS]	7-10-85 08:24	pages 5,5

**** File 1) DV.CH[MF,ALS]/5P/56L
1)		if tty↑='/' then seen_slash←true else begin
1)		dvi_name[i]←tty↑; incr(i); get(tty); end;
1)		end;
**** File 2) DVIESP.CH[TEX,SYS]/5P/56L
2)		if tty↑='/' then seen_slash←true
2)		else begin dvi_name[i]←tty↑; incr(i); get(tty); end;
2)		end;
***************


**** File 1) DV.CH[MF,ALS]/5P/68L
1)	while (seen_slash) and (¬ eoln(tty)) do begin
1)	    get(tty);
1)	    if (tty↑='c') or (tty↑='C') then read_c;
1)	    if (tty↑='f') or (tty↑='F') then read_f;
1)	    if (tty↑='n') or (tty↑='N') then read_n;
1)	    if tty↑='/' then seen_slash←true else seen_slash←false;
1)	    end;
1)	while (imp_name[i]≠'.') and (imp_name[i]≠'[') and (imp_name[i]≠' ')
1)		and (imp_name[i]≠chr(0)) do incr(i);
1)	reset(dvi_file,dvi_name,'/B:8/N:9/O');
**** File 2) DVIESP.CH[TEX,SYS]/5P/68L
2)	spoolit←true;
2)	while (seen_slash) and (¬ eoln(tty)) do begin
2)	    get(tty);
2)	    if (tty↑='c') or (tty↑='C') then read_c
2)	    else if (tty↑='f') or (tty↑='F') then read_f
2)	    else if (tty↑='n') or (tty↑='N') then read_n
2)	    else if (tty↑='i') or (tty↑='I') then begin spoolit←false; get(tty); end;
2)	    if tty↑='/' then seen_slash←true else seen_slash←false;
2)	    end;
2)	reset(dvi_file,dvi_name,'/B:8/N:9/O');
***************


**** File 1) DV.CH[MF,ALS]/5P/107L
1)	while (imp_name[i]≠'.') and (imp_name[i]≠'[') and (imp_name[i]≠' ')
1)		and (imp_name[i]≠chr(0)) do incr(i);
1)	j←i-1;
1)	imp_name[i]←'.'; incr(i);
1)	imp_name[i]←'L'; incr(i);
1)	imp_name[i]←'P'; incr(i);
1)	imp_name[i]←'T'; incr(i);
1)	imp_name[i]←'['; incr(i);
1)	imp_name[i]←'S'; incr(i);
1)	imp_name[i]←'P'; incr(i);
1)	imp_name[i]←'L'; incr(i);
1)	imp_name[i]←','; incr(i);
1)	imp_name[i]←'S'; incr(i);
1)	imp_name[i]←'Y'; incr(i);
1)	imp_name[i]←'S'; incr(i);
1)	imp_name[i]←']'; incr(i);
1)	imp_name[i]←' ';
1)	while true do begin
1)		reset(im_file,imp_name,'/O');
1)		if (erstat(im_file) mod @'20000)>0 then goto done;
1)		imp_name[j]←chr(ord(imp_name[j])+1);
1)		if imp_name[j]>'Z' then begin
1)			imp_name[j-1]←chr(ord(imp_name[j-1])+1);
1)			imp_name[j]←'A';
1)			if imp_name[j-1]>'Z' then imp_name[j-1]←'A';
1)			end;
1)		end;
1)	done:
1)	rewrite(im_file,imp_name,'/B:8/N:9/P:256');
**** File 2) DVIESP.CH[TEX,SYS]/5P/107L
2)	while (imp_name[i]>'.') and (imp_name[i]≠'[') do
2)		incr(i); {skip to dot or bracket or space or null}
2)	if spoolit then begin
2)		j←i-1;
2)		imp_name[i]←'.'; incr(i);
2)		imp_name[i]←'L'; incr(i);
2)		imp_name[i]←'P'; incr(i);
2)		imp_name[i]←'T'; incr(i);
2)		imp_name[i]←'['; incr(i);
2)		imp_name[i]←'S'; incr(i);
2)		imp_name[i]←'P'; incr(i);
2)		imp_name[i]←'L'; incr(i);
2)		imp_name[i]←','; incr(i);
2)		imp_name[i]←'S'; incr(i);
2)		imp_name[i]←'Y'; incr(i);
2)		imp_name[i]←'S'; incr(i);
2)		imp_name[i]←']'; incr(i);
2)		while i<f_name_size do begin
2)			imp_name[i]←' ';
2)			incr(i);
2)			end;
2)		while true do begin
2)			reset(im_file,imp_name,'/O');
2)			if (erstat(im_file) mod @'20000)>0 then goto done;
2)			imp_name[j]←chr(ord(imp_name[j])+1);
2)			if imp_name[j]>'Z' then begin
2)				imp_name[j-1]←chr(ord(imp_name[j-1])+1);
2)				imp_name[j]←'A';
2)				if imp_name[j-1]>'Z' then imp_name[j-1]←'A';
2)				end;
2)			end;
2)		done:
2)		end
2)	else begin
2)		imp_name[i]←'.'; incr(i);
2)		imp_name[i]←'I'; incr(i);
2)		imp_name[i]←'M'; incr(i);
2)		imp_name[i]←'P'; incr(i);
2)		while i<f_name_size do begin
2)			imp_name[i]←' ';
2)			incr(i);
2)			end;
2)		end;
2)	rewrite(im_file,imp_name,'/B:8/N:9/P:256');
***************


**** File 1) DV.CH[MF,ALS]/11P/6L
1)	esp(dvi_file,im_file);
1)	end.
**** File 2) DVIESP.CH[TEX,SYS]/11P/6L
2)	if spoolit then esp(dvi_file,im_file);
2)	end.
***************


**** File 1) DV.CH[MF,ALS]/12P/24L
1)	@z
**** File 2) DVIESP.CH[TEX,SYS]/12P/24L
2)	@!spoolit: boolean;
2)	@z
***************